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LABEL OOOOOOOOOLINE 00 J. 78 124?EXECUTE ESPOl'DISK 

BURROUGHS B-5700 ESPOL COMPILER MARK XV I . 0,116 THURSDAY* 05/04/78* 5*52 PM, 



ESPOL /DISK 



o 



o 



0000000/DlSK 



G 



u 

o 
O 
O 

o 
o 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



comment: 



PRT(201) a ^SEGMENT 
PRTC202) b DATA 



STACKcF+1) = PR0CVAL 
PRT(203) b fiNDMEM 



BEGIN 

DEFINE 
DESCRIPTOR* 

ARRAY 

DEFINE 
DEFINE 
DEFINE 
DFFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
INTEGER 



SOURCE FILES SYMBOL /KERNEL 



B-5500 ESSENCE OF MCP 5 N0V.1968 P.E.G. 
TITLE! B5500/B5700 MARK XVI SYSTEM RELEASE 
FILE IDS SYMBOL/KERNAL TAPE 10* SYMB0L2/F I LeOOO 
THIS MATERIAL IS PROPRIETARY TO BURROUGHS CORPORATION 
AND IS NOT TO BE REPRODUCED* USED* OR DISCLOSED 
EXCEPT IN ACCORDANCE WjTh PROGRAM LICENSE OR UPON 
WRITTEN AUTHORIZATION OF THE PATENT DIVISION OF 
BURROUGHS CORPORATION* DETROIT, MICHIGAN 48232 

COPYRIGHT (C) 197i* 1972» 1974 
BURROUGHS CORPORATION 
AA320206 AA3866&7 AA332366 



* 
* 

* 
* 

* 
* 
*l 



MsMEMORY *$■ P=P0LISH #. 



DATA C*JJ 

ADDRESS b 

BASE b 
DIRECTOPb 

DISK = 

INDX b 
MODS 

NOSYS = 

R = 

SYSTEM = 

PROCVAL b 



MC04O] t\ 

mco] #; 

MC 1 3 *l 

MiP4i] #; 

MCPA2J 
MCP46J 
MCP43J 
MtP44J 
MCP45] 
+ 1? 



D/S* rtDftS Of OttecT&YTP 



V-i 

*) 
t\ 
#t 

t\ 



INTEGER FINDMEM; 



LABEL 



SAVE REAL PROCEDURE E0M5 



TIMER*START*T0P0C0DE? 



00020000 
00020110 
00020111 
00020112 
00020H3 
00020114 
00020H5 
00020H6 
00020H7 
00020H8 
00020119 
00020120 
00030000 
00040000 



00060000 
00070000 
00080000 
00090000 

ooiooooo 

00110000 
00120000 
00130000 
00140000 
00150000 



PRT(204) = EOM 



START OF SAVE 



00170000 
00180000 

SEGMENT." BASE 



0000*0 
000050 
000050 
000050 
000050 
000050 
000050 
000050 
000050 
OOOOJO 
000050 
000050 
000050 
000050 



00050000 T 000050 



0000*0 
000050 
000050 
000050 
000050 
000050 
000050 
000050 
000050 
000050 



00160000 T 000050 



OOOOJO 
000050 



ADDRESS s 00000 



PRTC205) b TIMER 



BEGIN 

0000 LlTC 

0001 OPDC 

0002 BFW 

0003 OPDC 

0004 RTN 



GO TO 
0000 

0205 
1001 



timer 
oooo 

1026 
4231 
4006 
0235 



END 



00190000 T 000050 



SAVE REAL PROCEDURE 10 (DESO; 



STHlS FIRES OFF 



size= 0002 words 
the io 00200000 t 000050 

start of save segment; base address s 00002 



O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

G 

G 
G 



o 



'U 



o 



u 



o 



o 
o 
o 
o 



o 



o 






o 

o 
o 
o 
o 

o 
o 

o 



PRTC206) k io 



BEG I 

0000 

000J 
0002 

0003 
0004 
0005 
0006 
0007 
0010 
0011 



N 



0012 LlTC 



0013 
0014 
0015 
0016 
0017 
0020 
0021 
0022 
0023 
0024 
0025 
0025 
0026 
0027 
0027 
0030 

0031 
0032 



value desc; 
Real desc; 
i 

DO BEGIN 

LUC 0000 0000 

PCCDESC], I 10); 
DESC 1601 7007 

4411 
R «- EoM; 

0220 

100 3 

0141 

0441 

1022 

1025 

04 21 

10 * R,[25}8] 

0044 0220 

END UNTIL (PROCVAL 



00210000 
00220000 
00230000 
00240000 


T 
T 
T 
T 


OOOOJO 
000050 
OOOOSO 
000080 


00250000 


T 


0000:i 



LlTC 

DESC 

INX 

MKS 

OPDC 

XCH 

STD 



0044 
0200 



0204 



00260000 T 000083 



DESC 

INX 

LOD 



LlTC 

STD 

OPDC 

LlTC 

LND 

LlTC 

LlTC 

EQL 

LlTC 

LlTC 

BBC 

end; 

OPDC 
RTN 



AND 5)=0; 



0200 



1001 

1001 

0005 

0000 
0000 

0000 

0030 



1001 



1003 

0141 
2021 
4155 
2345 
4OO4 
0421 
4006 
0024 
0415 
0000 
0000 
4425 
0000 
0140 
0131 

4006 
0235 



00270000 T 000282 
00280000 T 0002S3 



SAVE PROCEDURE DISKREED (DESc); 



PRT(207) = DISKREED 



0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0007 
0010 
0011 



VALUE 

REAL 

BEGIN 

NOP 

OPDC 

LlTC 

DESC 

INX 

LOD 

ADD 

LlTC 

OPDC 



0200 
0040 
0200 



0000 

1601 



desc; 
desc; 
streamc a 

0055 
1002 
0200 
1003 
0141 
2021 
OlOl 
0000 
7006 
5355 
3045 



START OF 



«- BASE + ADDRESS, B J =DESC , [ 33 8 1 5 ] ) 8 



00290000 T 000681 



SIZE- 0007 WORDS 
00300000 T 000080 

SAVE SEGMENT; BASE ADDRESS s 00009 



00310000 T 
00320000 T 
00330000 T 



000050 
000080 
000050 



O 

o 

o 

Q 

o 
o 
o 
o 

c 
o 
o 
o 
o 
o 



o 



o 



o 
o 
o 
o 

o 



L 



O 
O 
O 
O 

o 

o 

O 

o 
o 



o 



o 
o 
o 

o 
o 

u 

o 

c 



0000 


MKS 




0441 


0012 






4441 

begin si?=loi 


0013 


SeS 


0002 


0222 


0014 


Rda 


0001 


0104 


0015 


ocv 


0010 


1066 


00J6 


L UO- 


0020 
] 


0100 

:f mcdesc] .[5;ij 


0017 


OPOC 


1601 


7006 


0020 


OESC 


0200 


100 3 


0021 


INX 




0141 


0022 


LOD 




2021 


0023 






0555 


0024 






1045 


0027 


OPDC 


1601 


7006 


0030 


LITC 


0014 


0060 


0031 






7155 


0032 






0361 


0033 






0565 


0034 


UlTC 


1601 


7004 


0035 


STD 




0421 


0025 


LjTC 


0007 


0034 


0026 


BFC 




0231 






DO R«- IOCDESCJ I 


0036 


LiTC 


0044 


0220 


0037 


aesc 


0200 


1003 


0040 


INX 




014l 


0041 


MKS 




0441 


0042 


OPDC 


1601 


7006 


0043 


opnc 


0206 


1032 


0044 


XCH 




1025 


0045 


STD 




0421 


0046 


LiTC 


0044 


0220 


0047 


DESC 


0200 


1003 


0050 


INX 




OHi 


0051 


LOD 




2021 


0052 


LITC 


0000 


0000 


0053 


EQL 




4425 


0054 


LITC 


0000 


0000 


0054 


LiTC 


0020 


0100 


0055 


BBC 
END* 




0131 


0056 


xn 




0435 


T0P0C0DE" 


:g>20: 


GO TO 


START; 


0100 


LiTC 


0000 


0000 


OlOl 


OPDC 


0211 


1046 


TIMER 


SP22: 


PC ini); ik not findmem 


0110 






0211 


0111 


OPDC 


0203 


1016 


0112 


LNG 




0115 


0113 


LITC 


0000 


0000 






GO TO 


START; 


0112 


OPDC 


0020 


0102 


0113 


OPDC 


0011 


0046 




• ■ 
» « 


GO TO 


timeR; 


0114 


LiTC 


0001 


QOO/j 



a;di :bb;ds:=8 dec; end; 



THEN DESC.[3I5]*12»X 



00340000 T 000253 



00345000 T 0003S3 



UNTIL R=0; 



00350000 T 0007S2 



% FIRST CODE 



THEN % TIMER 



% SET UP FOR JNVD ADDR 



% SPO 



00360000 T 0011*2 

SIZE= 0012 WORDS 
00380000 T 0000:0 



00390000 T 001652 



00400000 T 001883 



00410000 T 0019:0 



c 
c 

c 
c 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



START 



0115 

0124 
01?5 

0130 
0131 

0134 
0135 
0136 

OHO 
0141 
0142 

0J44 
0145 
0146 

0150 
0151 
0152 

0160 
0161 

0170 
0171 

0174 
0175 

0304 
0305 
:*: 

0304 
0305 
0112 
0113 
0100 
01 01 
1040 
1041 
1042 

1043 
1044 
1045 
1046 
1047 
1050 
1051 
1052 
1053 
1054 
1055 



LBU 

8025? 

LUC 

LBU 

8026: 

LlTC 

LBU 

8027» 

LlTC 

LOD 

RTN 

8 308 

LlTC 

LOD 

RTN 

8031s 

LlTC 

LOO 

RTN 

8032! 

LlTC 

LOD 

RTN 

8 34! 

LlTC 

LBU 

8036! 

LlTC 

LBU 

8 037 8 

LlTC 

LBU 

8061 8 

LlTC 

OPDC 

P(P10 

LlTC 

LfU 

LJTC 

LFC 

Lire 
lfu 

LlTC 
LlTC 

M[MOl) 

LlTC 

DESC 

INX 

LlTC 

DESC 

INX 

LOD 

DESC 

NOP 

ADO 

LlTC 



GO TO 
0003 

GO TO 
0004 

PC014, 
0014 



P(015, 
0015 



P(016, 
0016 



PC017, 
0017 



GO 7 
0012 

GO TO 
0014 

GO TO 
0015 

GO TO 
0023 
0211 
0»STS)l 
0127 

0166 

0170 

OlOO 
0003 

S := MO 

0046 
0200 

0046 
0200 



;R; 



R; 



6131 

TIMeI 

OOU 

6131 

T I M p F 

0020 

6131 

LO[),RTN)J 

0060 

2021 

0235 

LOD, RTN); 

0064 

2021 

0235 

LODpRTN); 

0070 

2021 

0235 

LOD, 

0074 

202J, 

0235 

TIME' 

0050 

6131 

TlM E f 

0060 

6131 

tim e i 

0064 

6131 

STAR" 

0114 

1046 



% LPA 



% LPB 



Rtn) ; 

i 

■R; 

) 

;R, 
I 

:H; 



% i-O 1 COMPLETE 



% 1-0 2 COMPLETE 



% 1-0 3 COMPLETE 



% 1-0 4 COMPLETE 



% DATA COMM 



% DF #1 USED ON FREE ADDRESS 



% df #2 return 



% PI INVD ADDRESS 



% SET STACK TO OCT 100 



1777 



0000 



0534 
6231 
7 30 
2231 
0740 
6231 
0400 
0014 
2141 
DS + 
0230 
1003 
0141 
0230 
1003 
014i 
2021 
7777 
0055 
OlOi 

0000 



00420000 T 0019S2 



00430000 T 002182 



00440000 T 002282 



00450000 T 002383 



00460000 T 002483 



00470000 T 002583 



00480000 T 002683 



00490000 T 002882 



00500000 T 003082 



00510000 T 003182 



00530000 T 004982 



100003 8= 0; 



% FIND MOD TO LOAD MCP 



00540000 T 013683 



O 
O 

o 
o 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 
o 
o 



u 
o 
o 
o 
o 
o 

u 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



1110 oooooooooooioooo 

1114 0000000000070000 



1055 
1056 
1057 
1060 
1061 
1062 
1063 

1064 

1065 
1066 
1067 
1070 
1071 
1072 
1073 
1074 

1076 
1077 
1100 
1101 
1102 
1103 

1104 
1105 
1106 
1107 
1052 



1074 
1075 

1120 

1121 
1122 

1123 
1124 
1125 
1126 
1127 
1127 
1130 
1131 
1132 
1133 
1134 
1135 
1136 

1137 



XCH 1025 

SNO 1021 

DESC 0200 1003 

INX OHl 

LlTC 0000 0000 

XCH 1025 

STD 0421 

P(ini)j % check 

0211 
IF MODS GTK P70000 



FOR INVD ADDRESS 

Then 



00550000 T 0141 50 
00560000 T 014i:i 



LlTC 

DESC 

INX 

LOD 

DESC 

NOP 

GTR 

LlTC 

BEGIN 

LlTC 

DESC 

INX 

LI rc 

XCH 
STD 

LlTC 

LBU 
NOP 
NOP 
OPDC 



0046 
0200 



1777 



0000 
MODS 
0046 
0200 

0000 



GO TO 
0011 



0222 



0230 
1003 
0141 
2021 
7777 
0055 
0225 
0000 
Js 0; 

0230 

1003 

0141 

0000 

1025 

0421 

START; 

0044 

6131 

0055 

0055 

1112 



00570000 T 014350 



00580000 T 014550 



1071 OPDC 0223 1116 



end; 

LlTC 
LFC 

findmem 



LlTC 

LlTC 

ISD 

DATA 

LlTC 

LOD 

LlTC 

INX 

LlTC 

DESC 

INX 

LlTC 



LlTC 
STD 
DISK 
LlTC 



0005 0024 

2231 

TRUE; 

0001 0004 

0203 1014 

4121 

C*P( ,eOM) ) INX 



0204 

0144 

0000 
0200 

1777 



0202 

• DATA 
0041 



100]] & 1023[BI38U0JJ 



1020 
2021 
0620 
0141 

0000 
1003 
0141 
7774 
6255 
1261 

1265 
1010 
0421 

[33s 15J J 
0204 



00580000 T 014580 

00580000 T 014550 
00590000 T 0148:0 



00600000 T 014850 



00610000 T 014853 



00620000 T 015153 



O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
c 
o 
o 
o 
o 

o 

o 



\y 



O 



O 



u 






u 

O 






o 

o 
o 
o 

u 

o 
o 
o 
o 

o 



o 



o 
o 

o 



HO 
141 
14? 
143 
144 
145 
146 
147 

150 
151 
152 
153 
154 
155 
156 
157 
160 

161 
162 
163 
16/* 
165 
166 

167 
170 
171 
172 
173 
174 
175 
176 
177 
200 
201 
,202 



.204 
205 
206 
207 

,210 
211 
212 

.213 
'14 

215 
216 
217 
220 
221 
222 
.223 



0ESC 
INX 
L I T C 

LOO 



XCH 

STD 

MCDISK] 

LITC 

DESC 

INX 

LOD 

DESC 

INX 

LITC 

XCH 

STD 
INDX . 

Lire 

DESC 

INX 

LITC 

XCH 

SID 

IF 10 

MKS 

DESC 

NOP 

LlTC 

DESC 

INX 

LOD 

OPDC 
LITC 
EQL 

LITC 



0200 1003 
0141 

0202 1010 
2021 
5355 
3045 

1025 
04?1 
P4 0; 

0041 0204 

0200 1003 
0141 
2021 

0200 1003 
0141 

0040 0200 
1025 
0421 



00630000 T 015450 



13; 
0042 
0200 



0210 
1003 
0141 
0064 
1025 
0421 
(01400040000000008 
0441 
7777 
0055 
0204 
1003 
0141 
2021 
5425 
1032 
0000 
4425 
0000 



00640000 T 015651 



0015 



1777 

0041 
0200 



0206 
0000 



DISK [33133115]} = THEN 



00650000 T 015753 



LITC 

DESC 

INX 

LjTC 

OPDC 



XCH 

STD 

LlTC 

DESC 

INX 

LOD 

DESC 

INX 

DESC 



0000 

BEGIN 

SYSTEM 

0045 

0200 

0001 
0202 



MtDISK] 
0041 
0200 



0200 



1777 



«• DaTaC1].[4:2]; 

0224 

1003 

0141 

0004 

1012 

0455 

1045 

1025 

0421 

«• P4060&SYSTEM [30146123; KLEAR CONTENTION 

0204 

1003 

0141 

2021 

100 3 

0141 

7777 



00660000 T 0160:2 
00670000 T 016150 



00680000 T 016351 



u 
o 

o 

o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 
o 
o 

u 

o 
o 
o 
o 
o 



o 
o 
o 

G 
O 

o 
o 
o 
o 

o 
o 






o 
o 

o 
o 
o 
o 
o 
o 
o 

o 



1224 
1225 
1226 
1227 
1230 
1231 
1232 
1233 
1234 
1235 

1236 
1237 
1240 
1241 
1242 
1243 
124 4 
1245 
1246 
1247 

1250 

1251 
1252 
1253 
1254 
1255 
1256 
1257 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1270 

1271 
1272 
1273 
1274 
1275 
1276 
1277 
1300 
1301 
1302 

1303 
1304 
1305 
1306 
1307 
1310 



NOP 
LITC 
DESC 
I NX 
LOD 



XCH 
STD 

MKS 

DESC 

NOP 

LlTC 
DESC 
INX 

LOD 



0045 
0200 



1777 

0041 

0200 



OPDC 0206 



LITC 

DESC 
INX 

LOD 

DESC 

INX 

DESC 

NOP 

UITC 

DESC 

INX 

LOD 



XCH 
STD 

MKS 

DESC 

NOP 

LITC 

DESC 

INX 

LOD 



0055 
0224 
1003 
0141 
2021 
7455 
5061 
0265 

1025 
0421 
PUOCeuOOoOiOQOOOOOO &DlSK[33»33li5]>.DELU % BITS 
0441 
7777 
0055 

1003 
0141 
2021 
5425 

1032 

0051 
MCDISK]* (S 6 060&SYSTEM[30!46J2l; 
0041 0204 
0200 1003 

0141 

2021 

1003 

0141 

7777 

0055 

0224 

IOO3 

0141 

2021 

7455 
506i 

0265 
1025 
0421 
PC IO(@140000100000000 
0441 



00690000 T 016752 



% UNLOCK ADDRESSES 



00700000 T 017050 



0200 

1777 

0045 
0200 



& DISK [33533515]), DEL)? 



00710000 T 01745 1 



0247 

0041 
0200 



OPDC 0206 



1 1 TC 

DESC 

INX 

LITC 

DESC 

INX 



I NDX - 
0042 
0200 

0042 
0200 



1237 
0055 
0204 

1003 
0141 

2021 
5425 
1032 
0051 

INDX 
0210 
IOO3 
0141 
0210 
1003 
0141 



+ (SYSTEM x 5) 



00720000 T 017653 



o 
o 

o 
o 
o 
o 
o 
o 



G 



O 



o 
o 

G 
G 
O 
O 

o 
o 
o 



u 
O 
o 
O 

o 

o 
o 
o 
o 
o 

o 
o 
o 
o 
o 



o 



o 
o 

o 



1311 


LOD 




2021 


1312 


LlTC 


0045 


0224 


1313 


DESC 


0200 


1003 


13H 


INX 




OHi 


1315 


LOD 




2021 


1316 


MTC 


0005 


0024 


1317 


MUL 




040i 


1320 


LITC 


0000 


0000 


1320 


ADD 




0101 


1321 


LlTC 


0000 


0000 


1321 


XCH 




1025 


1322 


STD 


END i 


0421 


1202 


LlTC 


0117 


0474 


1203 


I3FC 




0231 




M[DISKJ t= 


OJ %SeT ADDRESS 


1323 


LlTC 


0041 


0204 


1324 


DESC 


0200 


100 3 


1325 


INX 




0141 


1326 


LOD 




2021 


1327 


DESC 


0200 


1003 


1330 


INX 




0141 


1331 


LlTC 


0000 


0000 


1332 


XCH 




1025 


1333 


STD 




0421 




DO R + 


IOCDISK INX 0140000040 


1334 


LlTC 


0044 


0220 


1335 


DESC 


0200 


1003 


1336 


INX 




0141 


1337 


MKS 




044i 


1340 


LlTC 


0041 


0204 


1341 


DESC 


0200 


100 3 


1342 


INX 




0141 


1343 


LOD 




2021 


1344 


DESC 


17 77 


777/ 


1345 


MOP 




0055 


1346 


INX 




0141 


1347 


LlTC 


0000 


0000 


1347 


OPDC 


0206 


1032 


1350 


XCH 




1025 


1351 


STD 




0421 


1352 


LlTC 


0044 


0220 


1353 


DESC 


0200 


1003 


1354 


INX 




0141 


1355 


LOD 




2021 


1356 


LlTC 


oooo 


0000 


1357 


EQL 




4425 


1360 


LlTC 


0000 


0000 


1360 


LlTC 


0005 


002ft 


1361 


LBC 




2131 




DIREC10P := 


DATA [2J; 


136? 


LlTC 


OOOl 


000/j 


1363 


DESC 


0200 


100 3 


1364 


INX 




0141 


1365 


LlTC 


0002 


0010 


1366 


opnc 


0202 


1012 


1367 


XCH 




1025 



TO ZERO 



00730000 T 0180;3 



00740000 T 0180S3 



) UNTIL R=0: 



00750000 T 0183:0 



00760000 T 0166J2 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

C) 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 






o 
o 

o 
o 
o 
o 

o 



1370 STD 0421 
NOSYS := DATA [13* 

1371 LjTC 0043 0214 

1372 DtSC 0200 1003 

1373 INX OHl 

1374 LUC OOOl OOO4 

1375 OPDC 0202 1012 

1376 XCH 1025 

1377 STD 0421 

BASE := DATA [INDXJ; 

1400 LI TC 0042 0210 

1401 DESC 0200 IOO3 

1402 INX OHl 

1403 LOD 2021 

1404 OPDC 0202 1012 

1405 DESC 0200 1OO3 

1406 STD 042i 

IF BASF LEQ DIRECTOP THEN 

1407 OPDC 0200 lOO?> 

1410 L I T C OOOl OOO4 

1411 DESC 0200 IOO3 

1412 INX 0141 

1413 LOD 2021 

1414 UEQ 4125 

1415 LiTC 0000 0000 

BEGIN M[§46] ;= <?>3 1 456521 433 12460; 

1417 L I TC 0046 0230 

1420 DESC 0200 IOO3 

1421 INX 0141 

1422 DESC 1777 7777 

1423 NOP 0055 

1424 XCH 1025 

1425 STD 0421 

M[$47] := $2124245125626260? 

1426 Li TC 0047 0234 

1427 DESC 0200 1003 

1430 INX 0141 

1431 DESC 1777 7777 

1432 NOP 0055 

1433 XCH 1025 

1434 STD 0421 

MCP50J != 02646516044234737; 

1435 LiTC 0050 0240 

1436 DESC 0200 1003 

1437 INX 0141 

1440 DESC 1777 7777 

1441 NOP 0055 

1442 XCH 1025 

1443 STD 0421 

PC 10(074 000000000004 6)* DEL); 

1444 MKS 0441 

1445 DESC 1777 7777 

1446 NOP 0055 

1447 OPDC 0206 1032 

1450 0051 

DO UNTIL FALSE; 

1451 LITC 0000 0000 

1452 LiTC 0003 0014 



00770000 T 019011 



00780000 T 019250 



00790000 T 0193*3 



^INVALID 



00800000 T 019551 



^ADDRESS 



00810000 T 0197S2 



2>F0R MCP 



00820000 T 0199 t 1 



00830000 T 020150 



00840000 T 020251 



O 

o 
o 

o 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

u 

o 
o 

o 



o 

o 
o 



u 



w- 



o 






o 



U 



o 






o 
o 
o 
o 
o 



o 



o 
o 
o 
o 

o 



1453 

1115 
1416 



1454 
1455 
1456 
1457 
1460 
1461 

1462 
1463 
1464 
1465 
1466 
146/ 
1470 
1471 
1472 
1472 

1473 
1174 
1475 
1476 
1477 
1500 

1501 
1502 
1503 
1504 
1505 
1506 
1507 
1510 
1511 
1511 

1512 
1513 
1514 
1515 
1516 
1517 

1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 



BBC 0131 

end; 

Li TC 0010 0040 
LFC 2231 

% BEGIN LOADING McP 
ADDRESS «- 73; 
LUC 0040 0200 
0200 



cmax size is 4080) 



00850000 T 0203*0 



00860000 T 0203*0 
00870000 T 020350 



desc 

I NX 
LITC 
XCH 
STD 



0111 



IOO3 
014t 
04 44 
1025 
0421 



DISKREEO (^140000047704235 OR MODS); 



MKS 
DESC 
NOP 
LITC 

DESC 
INX 

LOD 
LOR 
LUC 
OPDC 



0441 
777? 
0055 
0230 
1003 
0141 
2021 
0215 
0000 
1036 

ADDRESS * 10; 

LlTC 0040 0200 
0200 



00880000 T 0204*2 



1777 

0046 
0200 



0000 
0207 



00890000 T 0206*3 



DESC 

INX 

LlTC 

XCH 

STD 



0012 



1003 
0141 
0050 
10 25 
0421 



DISKRF.FO CP140000047700473 OR MODS); 



MKS 

DESC 

NOP 

LlTC 

DESC 

INX 

LOD 

LOR 

LlTC 

OPDC 



1777 

0046 
0200 



0441 
7777 
0055 
0230 
1003 
0l4i 
2021 
0215 
0000 

1036 



00900000 T 0208*1 



oooo 

0207 
ADDRESS <- 0; 
LlTC 0040 0200 

0200 



00910000 T 0210*2 



DESC 

INX 

LlTC 

XCH 

STD 



0000 



1003 
0141 

oooo 

1025 
0421 



DISKREED (^140000041200017 OR MODS); 



MKS 

DESC 

NOP 

LlTC 

DESC 

INX 

LOD 

LOR 



1777 

0046 
0200 



0441 
7777 
0055 
0230 
100 3 
0141 
2021 
0215 



00920000 T 0212*0 



C 



c 



o 



o 
c 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



u 



u 
O 
O 

o 
o 
o 
o 
o 

u 

c 
o 
o 
o 
c 
o 
o 
o 
o 

— 1 

o 

o 

o 



1530 
15 30 



1531 
153? 

153 3 
1534 
1535 
1536 
153/ 
1540 
1541 
1542 
1542 

154 3 

1544 
1545 
1546 
154?' 
1550 
1551 
155? 

1553 
1554 
1555 
1556 
1557 
1560 
1565 

1562 
1563 
1564 
1565 
1566 
1567 
1570 

1571 
1572 
1573 
1574 
1574 
1575 

1576 
157 7 
1600 
1601 
160? 
1603 
1604 
1605 
1606 



L i TC 

OPDC 

* EN 

MOOS 

LlTC 

DESC 

I NX 

LlTC 

DESC 

INX 

LOP 

L I TC 

ADD 
LjTC 
XCH 
STD 
' M[@l 

LlTC 
DESC 
INX 
DESC 

NOP 
XCH 
STO 
M[@l 

LlTC 

DESC 

INX 

DESC 

NOP 

XCH 

STD 
M[G>1 

LJTC 

DESC 

INX 

DESC 

NOP 

XCH 

STD 

BASE 

OPDC 

LlTC 

SUB 

LlTC 

DESC 

STD 

M[0] 

OPDC 

LlTC 

DESC 

INX 

LOD 



2C0DE TO PULL MCP DOWN 



0000 0000 
0207 1036 
D MCP LOAD 
:~ MODS + §4o; 
0046 0230 
0200 1003 

0141 
0046 0230 
0200 1003 

0141 

20 21 
0040 0200 

0101 
0000 0000 

1025 

0421 
5J * 00441023201004441; 

0015 OO64 
0200 1003 

0141 
1777 7/7 7 
0055 
1025 
0421 
6J «- PQ253010453527705; 

0016 0070 
0200 1003 

0141 
1777 7777 
0055 
1025 
0421 
7J «- ^3705005101002411; 

0017 0074 
0200 1003 

014t 
7777 
0055 
1025 
0421 
- 2; 
1002 
0010 
301 
0000 
100 3 
0421 
!=BASE&SYSTEM[l6?46S2J&(N0SYS)f 14546S2]; 



00930000 T 
00940000 T 



021451 

021451 



00950000 T 0217? 



STHIS MOVES 4042 WDS 



00960000 T 0218J3 



00970000 T 022052 



17 77 



- BASE 
0200 
0002 

0000 
0200 



00980000 T 022251 



0200 
0045 
0200 



LHC 0043 



1002 
0224 
100 3 
0141 
2021 

7455 
2461 
0265 

0214 



00990000 T 022352 



LJ 



U 



o 
o 
o 

o 
o 
o 
o 
o 
c 
c 



o 
o 
o 



o 



o 
o 
o 
o 



^ 



o 

o 
o 
o 

o 
o 



o 



o 

c 

o 

,o 

o 
o 
o 
o 
o 
o 
o 
o 

o 



1640 0140004000000000 

1644 0000000000004060 

1650 0140000100000000 

1654 0000000000006060 

1660 0140000040100000 

1664 3145652143312460 

1670 2124245125626260 

1674 2646516044234737 

1700 0740000000000046 

1704 0140000047704235 

1710 0140000047700473 

1714 0140000041200017 

1720 0441023201004441 

1724 0253010453527705 

1730 370500510J002411 



1607 DFSC 0200 IOO3 

1610 INX 0141 

1611 L0D 2021 

1612 7 4 55 

1613 226i 

1614 0265 

1615 DESC 0200 IOO3 

1616 STI) 0421 
P(1>S7S,0,STF)J 

1617 L I T C 0001 0004 

1620 LlTC 0003 0014 

1621 2141 

1622 LUC 0000 0000 

1623 L I TC 000? 0010 

1624 2141 
GO TO P( LM[@153 j); 

1625 Li TC 0015 OO64 

1626 DESC 0200 1003 

1627 I NX 0141 

1630 BFW 4231 

while true do; 

1631 Li TC 0001 OOO4 

1634 LJTC 0005 0024 

1635 BflW a 1 3 1 

1636 NOP 0055 

1637 NOP 0055 
1170 OPOC 0350 1642 

1223 OPOC 0351 1646 

1272 OPOC 0352 1652 

1237 OPDC 0352 1652 

1256 OPDC 0353 1656 

1340 OPDC 0354 166? 

1422 OPDC 0355 1666 

1431 OPDC 0356 1672 

H40 OPDC 0357 1676 

1.445 OPDC 0360 1702 

1463 OPDC 0361 1706 

1502 OPDC 0362 1712 

1521 OPDC 0363 1716 

1547 OPDC 0364 1722 

1556 OPDC 0365 1726 

1565 OPDC 0366 1732 



01000000 T 022753 



01010000 T 022981 



01020000 T 0230; 1 



01020000 T 0230S1 

01020000 T 0230S1 

01020000 T 023051 

01020000 T 0230*1 

01020000 T 023051 

01020000 T 023081 

01020000 T 0230:1 

01020000 T 0230? 1 

01020000 T 023051 

01020000 T 023051 

01020000 T 023051 

01020000 T 0230:1 

01020000 T 023051 

01020000 T 023051 

01020000 T 023051 



C 

o 
o 
o 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



c 



o 

o 

u 

o 



1632 LUC 0021 OIO4 

1633 LFC 2231 

END OF HALT LOAD CaRD» mm 

NUMBER OF ERRORS DETECTfD = 000, COMPILATION UME = 0024 SECONDS, 
PRT S lZE=l 36 BASF ADDRESS = 0247 CORE RE0 = 0268 DISK Re« = 00330 

LABEL OOO0000O0LINE 00 1 781 247EXECUTE ESPOl/OISK 



01030000 T O24/S0 

SIZE= 0247 WORDS 



ESP0L /DISK 



^_ 



L 



C 



c 
c 
c 
c 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



